home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 145 / Tiger_Disk_145_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende -135- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  792b  |  16 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147);:v=53248:poke2041,13
  2. 11 s=54272:pokes+4,17:pokes+24,15:pokes+5,9:pokes+6,248:pokes+1,4*(rnd(1)+4)
  3. 20 forn=0to62:reada:poke832+n,a:nextn
  4. 30 pokev+2,160:pokev+3,109:pokev+21,2:
  5. 40 pokev+23,2:pokev+29,2:forx=95to255step5:fory=25to255step8:pokev+40,y/45
  6. 42 poke53281,11::::::: ::::  :::poke53281,12::::::::::::::::::   poke53281,11
  7. 43 pokes+4,33:pokes+1,15+abs(129-y):pokes+4,16
  8. 44 poke53280,11::::::: ::::  :::poke53280,12:::::::::::::::   :::poke53280,11
  9. 45 forp=255to97:pokev+3,p:pokev+2,p:next:b=b+5:
  10. 46 print"[150]  [158] [156] [149]  [150] [158]  [156] [129] [145] ";:
  11. 47 forp=255to97:pokev+3,p:pokev+2,p:next:pokes+4,128:
  12. 49 ifb>352thenforz=1to300:next:pokes+4,0::end
  13. 50 pokev+3,255-x:pokev+3,255-y:pokev+2,255-y:pokev+5,a:pokes+4,129:next:next
  14. 70 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,,,,,,,,,,,
  15. 80 data,,,,,,,,,,,,,,,,,,,,,,,,,,,255,255,255,128,128,128,255,255,255,255,255
  16.